home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / prolog / brklyprl.lha / Emulator / main.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-04-14  |  1.0 KB  |  63 lines
  1.  
  2. /* Copyright (C) 1988, 1989 Herve' Touati, Aquarius Project, UC Berkeley */
  3.  
  4. /* Copyright Herve' Touati, Aquarius Project, UC Berkeley */
  5.  
  6. #include <stream.h>
  7. #include "hash_table.h"
  8. #include "string_table.h"
  9. #include "tags.h"
  10. #include "instr.h"
  11. #include "scan.h"
  12. #include "memory.h"
  13. #include "inst_args.h"
  14. #include "inst_table.h"
  15. #include "assembler.h"
  16. #include "main.h"
  17. #include "control.h"
  18. #include "top_level.h"
  19.  
  20. Scan SCAN;
  21. Memory M(SCAN);
  22.  
  23. void init()
  24. {
  25.   init_instr_args(SCAN);
  26.   init_instr_types(SCAN);
  27.   init_run_time_tables();
  28.   M.allocate();
  29.   init_code();
  30.   M.init();
  31.   init_commands();
  32. }  
  33.  
  34. void print_usage()
  35. {
  36.   cout << "options: [-e][-c][-h][-t]\n-e -> execute\n-c -> print code\n";
  37.   cout << "-h -> print this message\n";
  38.   exit(0);
  39. }
  40.  
  41. main(int, char**)
  42. {
  43. /*
  44.   for (--argc; argc; --argc, argv++) {
  45.     switch (argv[1][1]) {
  46.     case 'e':
  47.       exec_flag = 1;
  48.       break;
  49.     case 'c':
  50.       code_flag = 1;
  51.       break;
  52.     case 'h':
  53.       print_usage();
  54.       break;
  55.     case 't':
  56.       trace_flag = 1;
  57.       break;
  58.     }
  59.   }*/
  60.   init();
  61.   top_level();
  62. }
  63.